home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / misc / emu / Apex-src.lha / DLF.XPL < prev    next >
Text File  |  2001-09-30  |  384b  |  22 lines
  1. \DLF.XPL    JUN-23-88
  2. \DE-LINEFEED PROGRAM
  3.  
  4. code    CHIN=7, CHOUT=8, TEXT=12, OPENI=13, OPENO=14, CLOSE=15;
  5.  
  6. int    CH;
  7.  
  8. begin    \MAIN
  9. TEXT(0, "DE-LINE-FEEDING...
  10. ");
  11. OPENI(3);   OPENO(3);
  12. loop    begin
  13.     repeat CH:= CHIN(3) until CH#\LF\$0A;
  14.     if CH=\EOF\$1A then quit;
  15.     CHOUT(3,CH);
  16.     end;
  17. CLOSE(3);
  18. end;    \MAIN
  19. 
  20. loop    begin
  21.     repeat CH:= CHIN(3) until CH#\LF\$0A;
  22.     if CH=\EOF\$1A